RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**1D**CLH 


cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 


LLLLLLLLLL 
LLLLLLLLLL 


LLLLLLLLLL 
LLLLLLLELL 


HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HHHHHHHHHH 
HHHHHHHHHH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
HH HH 
SSSSSSSS 
SSSSSSSS 
S$ 
SS 
SS 
SS 
SSSSSS 
SSSSSS 
S$ 
SS 
SS 
SS 
SSSSSSSS 
SSSSSSSS 


iss-32 V4.0-742 Page 


14 
file processing interface and command Line hand 4.48 -1984 :56:1 liss- 1 
. ° s , Hn #3:38:19 MASTER: CRUNOFF .SRCJCLH.BLI;1 (1) 


14-Sep-19 


RTITLE ‘file processing inter ace and command Line handler’ 
MODULE clh ( ABett = ‘y 4-000' 
BLISS32 C, ADDRESSING_MODE (EXTERNAL = long_relative 
: NONEXTERNAL = Long-relatives) 


BEGIN 


i gee eeee eee eeeeeeeeeeeeeeeeeeeeeeeedeneeeeeeneeeeeneeeeeeeeeeeeeeeeeeneeee 
'e 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'‘® ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH aint AND ade T 


po jelolelololololq) 


oOo 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJE 
it AND SHOULD NOT BE CONSTRUED AS A COMM 
ix CORPORATION. 


it DIGITAL ASSUMES NO RESPONS 


ct TO CHANGE WITHOUT NOTI 


CE 
TMENT BY DIGITAL EQUIPMENT 


RMRNMNNIN SS 4-2 2 3 3 SS BOO OOOO 


BILITY FOR THE USE OR RELIABILITY OF ITS 


IL 
IS NOT SUPPLIED 8Y DIGITAL. 


* 

& 

x 

* 

w 

x 

* 

t 

® 

; H RO * 
!t OTHER Peres” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY . 
® 

* 

* 

® 

x 

I * 
H * 
tt 

* 

® 
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§ SOFTWARE ON EQUIPMENT WHI 
; ARAL Ps ot 9 ARO EAR I DBC T PEER REE 
003 les 
O08 FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
Ooe ABSTRACT: File processing interface and command Line handler. 
O03 ENVIRONMENT: Transportable 
ORs AUTHOR: R.W.Friday CREATION DATE: April, 1978 
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sion History 14-Sep-1 
SBTTL ‘Revision History’ 
MODIFIED BY: 
041 REMO0041 Marshall 23-February-1984 


Roved IN. TYPE wen” UT_TYPE fo GLBDAT.BLI and renamed them to 
IPFTOP-and OPFTOP réspectivly. Also created there another 


CLH X-1 
vb4=000 DISKS 


Lobal veriable and one global iteral to syepers new logic 
erein. ALL this was cong because in VMS V4 there is a new 
feature ate Lists) which necessatates our ya calls 
to LIBSFIND_FILE to find input files after the first one 
yhen multipT %, nput Lh are specified. To do this, the 
y 


COOCSSSCOCOOOOSOSSO 8 -- 


bad a oD ot ot et et et et ee ee 
WR ODONAULAR “"OOONOULSWN—O —--® 


SOSOOSCOOCOOOOOOCOOoSSoSSoO A7-« 


SOOONOUNE WN OOONOULS Wn 


APAOAAOMMAMNANNNII SE PPLE LE 


1 
1! 
1! 
z 
1! 
8 
1! 
1! 
1! 
1! 
7% 
& 
1! logic to ver the ‘out filespec was copied to a new 
1! routine within RUNOFF.BLI and changes were made herein to 
4 : the sections that open the output and input files. 
0 1! 040 KFA00040 Alden 20-Jul-1983 
5 : Fixed wild card can interaction with /auto. 
00 1! 039 KFA00039 Ken Alden 10-Jun-1983 
1 si : Improved error handling of wild-carding input file names. 
: $08 2: 038 KFA00038 Alden 4-May-1983 
44 Beez : Added canditlenak’ for gca_skip_out "7 OUT_NO_CRLF branch. 
66 0065 1! 037 KAD00037 keith Dawson 14-Apr-1983 
44 Boe$ ' Fixed bug: FLIP (.BFL) output file wes not being opened. 
69 0068 1! 036 KAD00036 Keith Dawson 22-Mar-1983 
70 34 1! Added LNO1 support. 
71 070 1! 
7 0071 1! 035 KFA00035 Ken Alden 07-Mar-1983 
7 Borg 1! Global edit of all modules. Updated module names, idents, 
ie th \ } copyright dates. Changed require files to BLISS library. 
76 0075 1 !-- 


x Fo 


cc 


Sew Sand neuseenosien SOBOOOO 000000000009 0000 00 0000 0000 0000 


Be Be Se Se Ge Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ss Se Ge Se Ss Se FF Ge FF SF Ss Se SSE Se Se See Sess SseSees ee 
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ile processing interface and command Line hand 1.40 $ep-1984 23:56:1 VAX-11 Bliss-32 V4.0-742 Page 3 
odule Level bbclarat tons 122808- 1382 #3:38:19 DISK SvNeH TER: CRUNOFF. SRCICLH.BLI;1 “8 (3) 
y ] psette "Module Level Declarations’ ; 
f } TABLE OF CONTENTS: : 
080 3 FORWARD ROUTINE 5 
081 1 GET_OUT_DEFAULT : NOVALUE, 3 
8 § 1 BWATT :”NOVALUE ; 
1 FBWAIT : NOVALUE; ; 
084 1 $ 
085 1! 3 
° § : ; INCLUDE FILES: : 
1 3 
0 § 1 LIBRARY ‘NXPORT:XPORT'; ' XPORT Librar : 
090 } REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions : 
1 ZIF DSRPLUS XTHEN é 
? ! heal *REQ:DPLLIB'; ! DSRPLUS BLISS Library : 
5 1 LIBRARY ‘REQ:DSRLIB'; ! DSR BLISS Library 3 
6 1 &FI F 
7 4 3 
. @ 3 
$3 1 ! MACROS: $ 
01! 3 
Hi 1 MACRO 3 
§ 1 XPROMPT (TEXT) = 3 
3 1 ($XPO_PUT( I0B = TTOIOB é 
$e 1 »STRING = ( XCHARCOUNT (TEXT) é 
5 1 *CHSPTR(UPLITCTEXT))) >» 23 : 
$$ 1 3 
; 1! 3 
8 1 ! OWN STORAGE: $ 
39 1! 3 
240 1 3 
41 1 status; : 
¢§ 1 $ 
4 1 OWN é 
44 1 DEF _OUT_LNG, : 
$2 ' DEF “OuUT~ the : VECTOR CCHSALLOCATION (50)]; : 
47 1! 3 
rt : EXTERNAL REFERENCES: : 
50 1 EXTERNAL : 
51 1 fra : FIXED_STRING 3 
3 1 ca_: GCA_DEFINITION, : 
5 1 s01 : FIRED_STRING, F 
54 1 ra: FIXED _STRING é 
35 1 irac : IRACDEFINITION, : 
§ 1 ipftyp, ! Cell in GLBDAT to hold the index into IPFTOP 
: 1 ipftop : VECTOR, 
38 : opftop : VECTOR; 
$9 1 EXTERNAL 
61 1 IOBSTK : BLOCK, '10B stack for Going. -REQUIRE. 
262 1 RNEIOB : REF $XPO_I0B (), ‘Always points to 10B for RR input. 


4 


(3) 
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nput fro 
or output to term 


input fi 
t 
TRE 


! Literal defining the lengths of IPFTOP and OPFTOP. 


! Error messages 


lus %THEN 


GRAB_RESULTANT, 


ipftct, 
rnfile 

IF dsrp 
rnfoft, 
rnfrtl; 

XTERNAL ROUTINE 
ERMS, 

IF DSRPLUS XTHEN 
PUTMSG, 
TSTTFE; 


I 

I 

I 

I 

I 
EXTERNAL LITERAL 
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vo4-000 CLH = OPCODE fontrolied asin=l ne routine 12280-1984 #3538318 DISKSVMSMASTER: CRUNOFF.SRCJCLH.BLI;1 ’ (4) 
; 161 Hs 1 Xsbttl 'CLH -= OPCODE controlled main=-Line routine’ ; 
H 196 83 ! GLOBAL ROUTINE clh (opcode) = ; 
> 164 91 1 ++ 
: 19? 3 : FUNCTIONAL DESCRIPTION: : 
: 167 4 1 i See ABSTRACT, above. ; 
> 169 0296 1 | FORMAL PARAMETERS: 
: i 0297 1! : 
; \f] 0 38 : OPCODE specifies the operation to be performed. ‘ 
: 18 6 00 | i IMPLICIT INPUTS: None : 
3 176 0301 1! : 
s 75 1 ! IMPLICIT OUTPUTS: None ° 
: 176 1! : 
; ig 0304 1 { ROUTINE VALUE: : 
; 178 305 1 ! COMPLETION CODES: ; 
3: «179 0306 1! : 
3 130 tH 4 ! See CLHCC.REQ for a description. : 
i 188 0309 1 ! SIDE EFFECTS: None : 
; 0310 1! : 
; 184 0311 1 i-- : 
: «6185 hats 1 : 
: «186 031 BEGIN 3 
: «187 0314 
>; «188 0315 LOCAL 
3; 6189 0316 temp; 
: 190 0317 
: «6191 0318 CASE .opcode FROM 1 TO clh_ops_count OF 
3 13 0319 SET 
; 0320 
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X-11 B 9-742 Pa 
SKSVMSMASTER:CRUNOFF .SRCICLH.BLI:1 (5) 
%sbttl ‘'CLH == open input file’ 


CCLH_OPEN_INPUT] : ! Open primary input file. 
BEGIN sy igen Fn 


XIF NOT XBLISS(BLISS32) AND DSRPLUS XTHEN 
INCR I FROM 0 TO (ipftct-1) DO ' fourteen different file types 
BEGIN ! Loop until one found. 
IF_ .gca_pass_count GTR 1 
THEN 
BEGIN 
status = $XPO_OPEN = 
EFAULT = (a ipttop C .ipftyp 2) 
= (4, .ipftop C .ipftyp 
AILURE = grab_resultant); 
i Status 


1 = .ipftyp; 


S 
status = $XPO_OPEN (I0B = .rniiob 
OPTIONS NPU 
DEFAULT = (4, .ipftop C.1 J) 


FAILURE = grab_resultant); 
IF .status THEN EXITLOOP ! If we open a file, exit the INCR loop 
END; ‘end of INCR Loop. 
XELSE 
status = $XPO_OPEN (10B = .rniiob 
OPTIONS = INPUT 
DEFAULT = (4, CHSPTR (UPLIT ('°.RNO'))) 
“FI FAILURE = grab_resultant); 
i. -Status ! Succeeded in opening (any type)? 
BEGIN ! Yes... 
BIN 


! 
file spec_stuff = rniiob Ciob$t_resultant] : SSTR_DESCRIPTOR (); 
! Pick off the name and length of the file spec for ERROR.B.I: 


irac_fspecp = .file_spec_stuff strsa_pointerd: 
irac_fspecc = .file_spec_stuff Cstr$h_lengthJ; 


IF NOT saeco + ee | DSRPLUS Z%THEN 
iF P GTR’ 0) ‘Succeeded in opening, but not *.RNO’. 


N 
ERM (rnfoft); 
XFI 


RETURN clh_normal 


N 
ELSE ! Open failed. 
a RETURN clh_cant_open 
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CLH == open output file 1228 08- 1382 #3:38:19 DISKSVMSMASTER: CRUNOFF .SRCIJCLH.BLI;1 . (6) 
78 Zsbttl ‘'CLH == open output file’ : 
5 CCLH_OPEN_OUT) : ; 
1 tT 90 on output file. ; 
§ get_out_default (rniiob Ciob$t_resultant]); ; 
§2 CASE .gca_op_dev FROM op_dev_first TO op_dev_last OF : 
e? SET : 
34 Cop_dev_line_printer, op.dev_diablo] : ; 
394 iNormal cases: Lineprinter output. Open STREAM output file using ; 
$338 ifile type already determined (.MEM, .MEC, or whatever). : 
0394 Status = $XPO_OPEN ; 
0395 (108 = .rnoiob : 
baee -OPTIONS = OUTPUT é 
039 -ATTRIBUTES = STREAM ; 
0398 RELATED = rniiob Ciob$t_resultant] : 
0399 » DEFAULT = (.def_out_lng, CHSPTR (def_out_spc)) 3 
res gFATLURE = grab_resultant : 
O40¢ 3 XIF DSRPLUS XTHEN , ; 
bcoz Cop_dev_vt100] : ; 
0405 IF NOT .gca_s_output F 
sh § — 7 
0408 3 iuser said /DEC=VT100, and did not say /OUTPUT=name, ; 
Be10 3 1$0 send output to TT: (SYSSOUTPUT). : 
0411 3 Status = $XPO_OPEN F 
Bsi¢ ; (10B = .rnoiob 3 
041 -OPTIONS = QUTPUT : 
vals 3 FILE SPEC = $XPO_OUTPUT ; 
0415 3 eRELATED = rniiob Ciob$t_resultant] : 
0416 3 »DEFAULT = (.def_out_lng, CHSPTR (def_out_spc)) : 
0417 3 FAILURE = grab_resuTtant 3 
0418 j : 
$33 ue : 
04 1 iOpen non-STREAM output file using file type already ; 
be $ ; determined (.VT1). : 
04 4 Status = $XPO_OPEN : 
425 (108 = .rnoiob : 
04 § -OPTIONS = OUTPUT : 
04 »RELATED = rniiob Ciob$t_resultant] F 
Se 3 DEFAULT = (.def_out_lng, CHSPTR (def_out_spc)) 3 
r ; g FAILURE = grab_resultant : 
431 3 xFI , : 
4 § ZIF LNO1 XTHEN 3 
4 Cop_dev_ln01, op_dev_\n0le] : : 
0434 : ; 


== open output fil 


vuvVvUU 


XFI 
SIF FLIP ZTHEN 
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'Open non=STREAM output file using file t l 
idetermined (.LNI). , on wean estas 


Status = $XPO_OPEN 
(To 


B = .rnoiob 
,OPTIONS = OUTPUT 
»RELATED = rniiob Ciob$t_resultant] 
» DEFAULT = (.def_out_lng, CHSPTR (def_out_spc)) 
g FAILURE = grab_resultant 


Cop_dev_flipJ : 


iOpen non=STREAM output file using file type alread 
: determined (.BFL). . ’ - ° 


status = $XPO_OPEN 
(To 


B = .rnoiob 
OPTIONS = OUTPUT 
RELATED = rniiob Ciob$t_resultant] 
» DEFAULT = (.def_out lng, CHSPTR (def_out_spc)) 
cFATLURE = grab_resultant 


INRANGE] : 0; 
OUTRANGE] : 0; 


TES; 

— -Status 

RETURN clh_cant_open 
RETURN clh_normal; 
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-- Read ont record from current AL. file 12-88-1382 #3:58:19 DISKSVMSMASTER: CRUNOFF.SRCJCLH.BLI;1 
Zsbttl "CLH == Read one record from current input file’ 
CCLH_READ_INPUT] : 
gente’ one record from current input file. 
status = $XPO_GET (IOB = .rniiob); 
«Status OR ! If no error in above get or 
, (.status EQL xpo$_truncated) !'Truncated records are really not too bad. 


! A record was successfully read. Set up information 
} erased by the remainder of the program. 


irac_iseqn = .rniiob Ciob$g_seq_numb]; !Input record/sequence number. 
irac_ipagen = .rniiob Ciob$ page numb); 'Input page number. 
irac_seqn_flag = .rniiob Ciob$v_sequenced); !Indicates meaning of IRAC_ISEQN. 


! Inform user if it was a truncated record that was read. 
as EQL xpo$_truncated 


erms (rnfrtl 
-efniiobd FiobSe string) 
min (.rniiob CTob$h_string] 


! Set up the input as a FIXED_STRING. 
fs_start (ira) = .rniiob Ciob$a_string): 
fs_next (ira) = .fs stars (ira); 
fs_maxsize (ira) = .rnTiob Ciob$h_string); 
fs_length (ira) = .fs_maxsize (ira); 


!eeeeeePATCH TO GET AROUND XPORT DEFICIENCIES 

entering this block, the fixed string IRA is set up such that 
XTCIRA) returns a CHSPTR to the first character to be processed. 
'The contents of KHAR are undefined. The block is exited with the 


pope te): de ie ie be! 
Wr Oo 0OnNo 


; same conditions holdin 


the only effects are: 


1. Updatin the input poge( line counters, and 
EXT(1 


2. Movement of FS_ 
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n 
A) over all LEADING formfeeds, nulls, 
dels. 


BEGIN 


LITERAL 
ff = %0'014'; 


LOCAL 
ptr, 
Ke 


WHILE (.fs_length (ira) GTR 0) DO 


BEGIN 

! First point to the character about to be considered. 
tr = .fs_next (ira); 

' Now, actually pick up the character. Note that 

i FS_RCHAR is not used because it advances its pointer 
!' such that if this character is not to be discarded 


ze 


== Read one record from current 
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! we can't back up. 
x = CHSRCHAR (.ptr); 


SELECT .x OF 
SET 


CFFJ : 
EGI 

If the file is sequenced, LEADING formfeeds do net 
start new pases: the assumption here is that 

file will 

as the one that created it, and that editor 
SOS. The action for sequenced files is 
simply to ignore the formfeed. 


pages. especially if you look at that file usin 
n such cases, XPORT does not pay attention to the 
set up the page and sequence number items. 

(Note however that XPORT does count pagemarks). 


IF NOT .rniiob Ciob$v_sequenced] 
THEN 


irac_ipagen = .irac_ipagen + 1; 
rrag 1segn wo Tz 
rniiob f ob$g.seq_numb) = .irac_iseqn; 


ge iob$h_page_numb] = .irac_ipagen; 

END; 
CO, FF DELI : 

BEGIN 5 

! Actually read the character that is being rejected. 

! This results in FS_NEXT(IRA> pointing to the next 

! character that is fo be considered. 

fs_rchar (ira, x); ! (X is a dummy for this one Line.) 
COTHERWISE) : 

EXITLOOP; 
TES; 


END; 
{eeeeeeEND OF PATCH 
RETURN clh_normal; 


ELSE 
BEGIN 


IF status EQL xpo$_end_file 


FPRBWE SSS SWMNAAAAA AA NNN NA AOA IND 09 09 09 09 NINN NIN NINN NN NNN NNO OA AAAO 
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0-742 Ps 
SMASTER: CRUNOFF .SRCIJCLH.BLI;1 


the 
e looked at using the same editor seremmel ty $0S) 
behaves Like 


For uneoquensee files, leading formfeeds do start new 


formfeeds, and feeds them through without counting a 
new page. In this case, WE have to Look for them and 


| 15 
CLH file processing interface and command Line hand 15-$e 
yo4-000 C A Read one record tren current AL. file 14-Se 


il $1984 23:56:1 VAX-11 Bliss-32 V4.0-742 Page 11 
LH ats ri #3:38:19 DISKSVMSMASTER: CRUNOFF.SRCJCLH.BLI;1 . ) 

; 46 4 THEN ! End of file processing 

3 ret ; 5 BEGIN 

; 465 2 IF .gca_req_depth NEQ 0 

: 466 0 THEN 

: 467 91 ' It's a ‘".REQUIRE’ file to be closed. 

; 468 3 6 BEGIN 

; 469 93 6 clh (clh_pop); 

; 470 594 6 | Note that the following is a recursive call on this 

3; 471 595 6 ! particular code sequence. When CLH encounters an end 

: oie 239 6 ! of file when it attempts to read a record from a 

s 47 597 6 ' require file, it must still, nevertheless, return a 

; 474 596 6 ! record, unless there is not more input. if a 

3 475 0599 6 i REQUIRE command is the Last record read from the 

: 476 0600 6 ! file that referenced the file just closed, then the 

3; 477 0601 6 i attempt to read a record from that file will also 

; «4478 0602 6 ! meet with an end of file being detected. In this 

: 479 0603 6 ! case, you have to pop that file too, and ety again. 

$ 0604 6 i That happens until either a record is final y read, 

; 481 0605 6 ' or all files have been popped and an end of file 

; 48 0606 6 ' occurs when Brying to read the main input file. 

; 48 0607 g RETURN clh (clh_read_input); 

: 484 0608 ND; 

: 485 0609 5 

: 486 0610 5 ! End of file on primary input file. 

; 487 0611 5 fs_length (ira) = 0; 

; 488 Bois 5 RETURN clh_end_file; 

3; 489 0613 5 END 

; 490 0614 4 ELSE 

: 491 0615 4 ! Error reading input file. 

; 49 0616 5 BEGIN : 

; 49 0617 5 fs_length (ira) = 0; 

: 494 0618 5 RETURN clh_cant_read; 

; 495 0619 4 END; 

; 496 0620 4 

; 497 0621 ; END; 

: 498 06 ; 

3; 499 06 5 END; 

; 500 0624 


<e 
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e processing interface and command Line hand 18. Sep-1984 23:56:1 VAX-11 Bliss-32 V4.0-742 Pa 12 
-- Write \’eocerd to 0/P file with CRLF suf 12-88-18 #3:38:19 DISKSVMSMASTER: CRUNOFF.SRCJCLH.BLI;1 pes (8) 
5 Zsbttl 'CLH -- Write 1 record to 0/P file with CRLF suffix’ 
3 CCLH URITE _OUTI : 
8 T Write one record to the output file. 
8 EGIN 
1 ZIF FLIP XTHEN 
: oe record : $flip_rnotxt 
: notxt; 
: <FI Pe Pn 
§ ' Append carriage ef ntrol information to the record 
fs_wchar (fra, et 'Carriage return 
3 fs_wehar (fra, tO" 12")s iLine feed 
0 SIF FLIP XTHEN 
1 IF (.gca_op_.dev EQL op_dev_flio) 
¢ THEN 
BEGIN 
4 temp_record (rnotxt_code] _ = flip$k_rnotxt; 
5 er “record Crnotxt ~tength) = Me length (fra); 
8 OVE (.fs_length (fra 
i .fs_ prac’ (fra ? 


*CHS Put (108 record crnetst.. text])); 
status = *$xPO_P 


9 

0 STRING = pk pretest _basesiz + 
1 enigth (ffa 

¢ CHSPTR temp_record))); 
4 

5 

6 

7 noiob, 

8 STRING = (. "ts _length (fra) 

9 .fscstart (fra)S); 


' Remove the . sqeanees characters from the end of the buffer 


ts next (.fs_next sire? -2); ‘Back up pointer 


fs_ length (fra) = .fs_length (fra) - 2; 'Back up counter 
5 IF_ .status 
RETURN clh_normal; 


END; 


END 
ELSE 
ZF I 
status = $XPO_PUT (I0B = 


15 
CLH file processing interface and command Line han 18-52 =1984 23:56:1 VAX-11 Bliss-32 V4.0-742 Page 13 Cu! 
v04-000 CLH A. urite {"recerd to 0/P tile w/o CRLF pang 127808=1382 #3:08: 19 DISKSVMSMASTER: CRUNOFF.SRCJCLH.BLI;1 . (9) v0 
3 4 ere A%sbttl 'CLH -= Write 1 record to 0/P file w/o CRLF suffix’ 
3 5 of CCLH_OUT_NOCRLFJ : 
5 38 ore iettate one record to the output file. Don't add carriage control information. 
: 4 67 IF NOT .gca_skip_out 
: 322 or THEN gin were 
3 a U re 4 ZIF FLIP XTHEN 
$ 58 U 0680 4 LOCAL 
3 59 U 0681 4 TEMP_RECORD : SFLIP_RNOTXT; 
; 560 U ? ¢ 4 
3; el U 4 IF (.gca_op_dev EQL op_dev_flip) 
: 206 U 0684 4 THEN 
; 56 U 0685 4 BEG 
; 564 U 8 4 TEMP_RECORDCRNOTXT_CODE] = FLIP$K_RNOTXT; 
; 565 U 0687 4 TEMP-RECORDCRNOTXT-LENGTH] = .FS CENGTH(FRA); 
; 208 U 0688 4 CHSMOVE( .FS_LENGTACFRA) 8 START (FRA) 
; 567 U 0689 4 ,CHSPTR(TEMP_RECORDCRNOTXT_TEXTJ)); 
; 568 U 0690 4 STATUS = $XPO_PUT( I0B=,RNOIOB 
; 569 U 0691 4 oSTRING=( FLIPSK_RNOTXT_ BASESIZ+.FS_LENGTH(FRA) 
; 570 U p66 4 , CHSPTRUTEMP_RECORD) » 2 
s Sri U 0695 4 END 
; 276 U 0694 4 ELSE 
; 37 0695 4 XFI 
3 «574 9096 4 
s 375 P 0697 4 STATUS = $XPO_PUT ( I0B = .RNOIOB 
s 37% P 0698 4 »STRING = ( .FS_LENGTH (FRA) 
; 577 0699 4 ,«FS_START (FRA) ) ); 
; 578 0700 END; 
; 579 0701 
; 280 144 IF .STATUS OR .gca_skip_out 
; 581 070 THEN 
; 28¢ 0704 RETURN CLH_NORMAL; 
3 2 0705 
: 584 Bre § END; 
3 385 707 
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4 23:56:1 VAX-11 Bliss 
le closing functions 12288-1386 #3:38:19 DISKSVMSMAST 
%sbttl “ELH -- file closing functions’ 
CLH_CLOSE_INPUT) : 
aeercee current input file. 
STATUS = $XPO_CLOSE ( IOB = .RNIIOB 
FAILURE = grab _resultant); 
RETURN CLH_NORMAL; 
END; 
CCLH_CLOSE_OUT] : 
T Closé output file 
BEGIN 
STATUS = SXPO_CLOSE ( IOB = .RNOIOB 
FAILURE = grab_resultant); 
RETURN CLH_NORMAL; 
END; 
CCLH_CLOSE_DEL_OUT) : 
T Close output file 
BEGIN 
IF ,RNOIOBCIOBSV_TERMINAL) 
THEN ! If it's a terminal, 
STATUS = $XPO_CLOSE ( IOB = .RNOIOB ! just close it. 
$e FAILURE = grab_resultant) 
BEGIN 
STATUS = $XPO_CLOSE ( I0B = .RNOIOB ! Otherwise, close 
,OPTIONS = REMEMBER ! and delete it. 
FAILURE = grad.resuitent); 
STATUS = $XPO_DELETE ¢ I0B = .RNOIOB 
FAILURE = grab_resultant); 


END; 
RETURN CLH_NORMAL ; 
END; 


V4.0-742 Page 14 
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CLH == Push I08 onto stack 14-Sep-1984 15:05:4 DISKSVMSMASTER: CRUNOFF..SRCJCLH.BLI;1 (11) 
625 745 %sbttl ‘'CLH -=- Push IOB onto stack’ 
6 § £e8 
6 74 CCLH_PUSH] : 
ee RE sh 
630 7 ! If there are not too many files plready open allocate 
? 1 4 a new I0B on IOBSTK (pointed to by RNIIOB). 
6 4 7 IF_  .GCA_REQ_DEPTH NEQ .GCA_MAX_REQUIRE 
634 754 THEN 
635 755 4 BEGIN 
6 7 § 4 RNIIOB = JOBSTK + (IOBSK_LENGTH * ZUPVAL) * .GCA_REQ_DEPTH; 
6 7 4 GCA_REQ_ DEPTH = .GCA_REQ_DEPTH + 1; 
638 758 4 RETORN CLH_NORMAL; 
639 759 4 N 
640 760 ELSE !' No room on I0B stack for the I0B. 
641 761 RETURN CLH_NO_SPACE; 
og Br o6 
64 076 END; 
644 0764 
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CLH -- Pop 108° from stack and reaccess previous 14- 300-1 38e #3:38:19 DISKSVMSMASTER: CRUNOFF SRCICLH.BLI;1 ae (12) 
16) %sbttl 'CLH == Pop I0B from stack and reaccess previous one’ 

8 CCLH_POP] : 

76 r Faas RUNOFF to stop gy from the current file 

ug i and read from the previous file instead. 

a4: BEGIN 

ak IF .GCA_REQ_DEPTH EQL 0 

77 THEN 

774 4 BEGIN 

775 4 Internal logic error: should not try to 

778 4 pop the main file. 

777 4 4 
0778 4 END 
0779 3 ELSE 
boas 4 BEGIN 
0781 4 ' Forcefully terminate open LIST, .NOTE and .IF commands that 
§78¢ 4 ! are still open when the file in which they occured is about 
783 4 ' to be closed. I.E., do not allow .END commands to be in a 
0784 4 ! oi irerent file than the the opening .LIST, .NOTE,... command. 
4 : TSTT FE (.GCA_REQ_DEPTH); 
0787 4 IF .RNIIOB CIOB$V_OPEN) ! Really close the file if 
0788 4 THEN ! there was a file opened 
0789 4 ! ( see REQUIR.BLI for case ynao it's not ) 
0790 4 STATUS = $XPO_CLOSE ( i , -RNI 
249) 4 URE = grab_resultant); 

ae; 4 'Now do By A file AE ay 
0793 4 ©NI10B C1OBsk LENGTH * ZUPVAL); 
Bae 2 GCA_REQ_DEPTH = GCA. REQ_ BEPTH - 1; 
0796 4 IF .GCA_REQ =PEPTW EQL 0 
0797 4 repped all the way back to hong input file 
Bree ? RNIIOB = URNEIO 'Get real primary 

ret : ! The routine ERROR needs the following information in IRAC. 
4h : ! Pick of the name and length of the file spec 
0804 5 FILE _SPEC_STUFF = RNIIOB CIOBS$T A OINTER I: SSTR_DESCRIPTOR (); 
0805 5 IRAC  ESPECP =" FILE_SPEC_STUFF CSTRSA_POINT 

+t] ? af ACL “FSPECC = .FILE_SPEC_STUFF CSTRSH_LENGTHI; 
0808 4 IRA Rat _ ISEQN = .RNIIOB C1OBSG SEQ_NUMB); 

4 IRAC-IPAGEN = .RNIIOB CIOBSA_PAGE_NUMAJ; 

0810 4 RETURN CLH "NORMA ¥ 

0811 END; 

aig 

81 END; 

814 
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A. Open REQUIRE file spec. 12-Sep-19 4 #338: 19 DISKSVMSMASTER:CRUNOFF -SRCICLH.BLI;1 age 44 


Rsbttl 'CLH == Open REQUIRE file spec.' 


CCLH_OPEN_REQ) : 
T Open a file requested on a .REQUIRE command. 


status = $XPO_IOB_INIT (I10B = .rniiob); 

status = $XPO-OPEN (108 = .rniio 

eOPTIONS = INPUT : INPUT f 

DEFAULT = ‘.RNO' ! Default 

oFILE_SPEC = ( .fs_length(fs 
-fs_start (fs 

FAILURE = grab_resultant); 


ile 
the extension only! 
1, ! filename 


IF .status 
THEN 
! Reset input Line/page counters. 
BEGIN 
irac_ipagen = 1; 
irac_iseqn = 1; 
! Pick off the name and Length of the filespec. 
file_spec stuff = rniiob Ciob$t_resultant] : $STR_DESCRIPTOR (); 


irac_fspecp = .file_spec_stuff pstrsa_pointery: 
irac_fspecc = .file_spec_stuff Cstr$h_lengthj; 


4 
4 
4 
5 
3 ; 
5 
5 
io 
0842 5 ! Output name of .REQUIRED file in .MEM file, if user 
8 ri 2 said /DEBUG:FILES 
0845 5 IF .gca_debug_fil AND NOT .gca_skip_out 
r : THEN | 
0848 5 ' Yes: User said /DEBUG:FILES and output is being 
084 ! generated because the current page is included 
0. : } n a /PAGES List. 
6 52 6 BEGIN 
0853 6 LOCAL 
8 54 6 XIF FLIP XTHEN 
32 e “rs temp_record : $flip_rnotxt, 
35 6 work_area : VECTOR CCHSALLOCATION (100), 
28 6 work count, 
59 6 work_ptr; 
369 6 
1 6 work_ptr = CHSPTR (work_area); 
3 6 work_ptr = CHSMOVE (10,~CHSPTR (UPLIT (*.REQUIRE ‘)), .work_ptr); 
6 work_count = 10; 
6 work-ptr = CHSMOVE (.irac_fspecc, .irac_fspecp. .work_ptr); 
5 6 work count = .work count + .irac_fspecc; 
§ 6 CHSWCHAR_A (ZC°'') work pt 
6 CHSWCHAR-A (20'15', work_ptr); ‘Carriage return 
3 6 CHSWCHAR_A (Z0'12", work_ptr); ‘Line feed 
6 work_count = .work_count + 3; 
O 6 ZIF FLIP ZTHEN 
71 6 IF (.gca_op_dev EQL op_dev_flip) 
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Pe acne te eee 


aie 
BEGIN 
temp_record [rnotxt_code] 
reap. recere rnotxt_ len 1 -work_Count; 
Ove (werk count, CHSPTR (work_area), 
reTbe"® record rnotnt. text])); 


STRING = meet pSk_rn en _basesiz + 
.wor 
CHSPTR (temp, record))); 


VAX-11 BLi 
DISKSVMSMA 
= flip$k_rnotxt; 
CHSPT 
status = $XPO_PUT 


END 
ELSE 


$XPO_PUT 10 


END; 
END: 


RETURN clh_normal; 
END 


noiob, 
RING = = we work count, CHSPTR (work_area))); 


S 
RETURN clh_cant_open; 


END; 


$-32_V 


4.0=742 Pa 
TER: CRUNOF F. SRCJCLH.BLI;1 


i a ke ed ed ed tk od 2d ts od a tt 


rocessing interface and command Line hand 4.22 ~3007 138% $3:38:16 VAX-11 Bliss-32 V4.0- ft Page 


) 1 
Close REQUIRE file (NULL) and bad OPCODE 14-Sep-1 DISKSVMSMASTER: CRUNOFF ..SRCICLH.BLI;1 (14 
Msbttl 'CLH == Close REQUIRE file (NULL) and bad OPCODE processing’ 


CCLH CLOSE_REQ] : 
T Closé a '.REQUIRE" file. 


on 


END; 
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yo4-000 Open Pnitializstion file : 12-Sep-19 4 43:08:49 DISKSVMSMASTER: CRUNGFF .SRCJCLH.BLI;1 ae 488 


94 
RIF FLIP THEN 


temp_record : $flip_rnotxt, 
<FI 


work_area : VECTOR CCHS$ALLOCATION (100)], 
work_count, 
work _ptr; 


work_ptr = CHSPTR (work_area); 


SOooooo 


ooononovnovnowTd 


i Move descriptive text into work area. 
! Identifies DSRSINIT if only 8 characters long. 
SRPLUSSINIT. 


PPPS A ASTI ES 
NR —OOONOAULS WA) "QWOOND 


! Otherwise, it must be for 


-fs_length (fs01) EQL 8 


; 790 0 XSBITL ‘Open initialization file’ 

; 791 309 

; 79 908 CCLH_OPEN_INIT) : 

: F87 310 | Gein Madd taktoot inn 006 ified in fs01 

3 ! Open initialization e specified in fs01. 

798 911 Bes . 

; 796 316 BEGIN 

: 797 91 status = $XPO_IOB_INIT (I0B = .rniiob); 

; 798 P 0914 status = $XPO-OPEN 

; 799 P 0915 (Tos = .rniiob, 

; 800 P 3318 OPTIONS = input, 

; 801 P 34 FILE_SPEC = (.fs_length ct201)- 

; 80 P 14 -fs_start (fs01)), 

; 80 091 FAILURE = grab_resultant); 

: 804 0920 IF .status 

3 80> 0921 THEN 

: Bor $358 i § ded i ing fil 

3 ! Succeeded in openin e. 

808 095% i ety 

; 809 0925 BEGIN 

3; 81 09 $ ! 

3 3 44 i Pick off name and length of filespec. 

3 81 0399 BIND 

: 3 Boas file _spec_stuff = rniiob Ciob$t_resultant] : SSTR_DESCRIPTOR (); 
3 681 O36 irac_fspecp = .file_spec_stuff strfe_pointerd: 

3 3 Baez irac_fspecc = .file_spec_stuff Cstr$h_length); 

; «81 0935 ! Output name of initialization file in .MEM file, if user 
3 Ht b3a8 saic /DEBUG:FILES 

s Se 0938 IF .gca_debug_fil AND NOT .gca_skip_out 

; 82 0939 THEN 

; Be 0940 ' 3 
; 82 0941 ! Yes, user said /DEBUG:FILES and output is being 
3; 82 094 ; generated because the current page is included 
3 HY 094 n a /PAGES List. 

; 56 Sees BEGIN 

3 Bs 94 LOCAL 

; 83 

; BS 

; 8 

, § 

; 8 
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i Otherwise, send initialization file info to user 
H in DSRPLUS form. 


$xPO_PUT (10B = .rnoiob, 
END STRING = (.work_ count, CHSPTR (work_area))); 
RETURN clh_normal; 
ELSE 


Couldn't find file to open. 


Open tialization file 14-Sep-1984 Dd 
963 6 BEGIN 
964 work_count = 15; 
965 work-ptr = CHSMOVE (.work_count 
96 CHSPTR (UPLIT ('DSRSINIT file ‘")), 
44 6 ne «work ptr); 
969 3 
970 6 GIN 
971 6 work count = 19; 
97¢ 6 work-ptr = CHSMOVE (.work_count 
973 6 CHSPTR (UPLIT ('DSRPLUSSINIT file ‘')), 
974 -work_ptr); 
975 END; 
bare ' 
$97 Add file name to work area. 
9979 5 work_ptr = CHSMOVE (.irac_fspecc, .irac_fspecp, .work_ptr); 
464 2 work count = .work count + .irac_fspecc; 
4 : } Add end-of-line characters to work area. 
984 5 CHSWCHAR_A (ZC°'"") work ptr); 
985 5 CHSWCHAR_A (%0'15', work_ptr); 'Carriage return 
0986 5 CHSWCHAR_A (Z0'12', work_ptr); 'Line feed 
0987 5 work_count = .work_count + 3; 
0988 5 XIF FLIP XTHEN 
0989 5 : If FLIP, send initialization file info to user 
Rage 2 in correct form for FLIP. 
0992 5 IF (.gca_op_dev EQL op_dev_flip) 
0993 § THEN "> 
0994 5 BEGIN 
0995 5 temp_record (rnotxt_code] _ = flip$k_rnotxt; 
0996 5 bone record (rnotxt_length] = .work_count; 
0997 5 CHSMOVE (.work count, CHS$PTR (work_area), 
0998 5 CHSPTR (temp_record Crnotxt_text])); 
0999 5 status = $XPO_PUT (1 = ,rnoiob, 
1000 5 STRING = (flip$k_rnotxt_basesiz + 
1001 5 -work_count, 
100 : CHSPTR(temp_record))); 
100 END 
1004 ; ELSE 
5 
4 
4 
4 
| 


file cessing interface and command Line h 1 “1984 23:56:1 
-000 Oven Gnitializetion file ve —— 13-te eet ri #3:38:19 DISK SVMGHAS TERS CHUNOFF ERCICLH. BLI;1 Page 484 
904 1020 RETURN clh : 
308 : ETURN clh_cant_open 
¢ END; 
90 ¢ COUTRANGE) : 


' Error in rogram. 
GIN site 


be 2 2 a 2s 4) 9) a se ss 


8 
909 
910 
911 PUTMSG (rnfile, GuSPTR CUPLIT (*CLH')), 3); 
aig 8 RETURN clh_end_fil | Make a guess 
91 029 ND; 
318 8 ; TES 
916 08, at 
917 03 
918 034 1 END; ! End of CLH 
-TITLE CLH file processing interface and command Line 
an 
-IDENT \V04-000\ 
.PSECT $PLITS$,NOWRT,NOEXE,2 
4F GE 52 2E€ 00000 P.AAE: .ASCII \.RNO\ ; 
00 00 22 20 45 52 49 55 $1 ch 85 SE Boos prams: CASEEE N= BNON ne on corcop : 
22 20 65 OC 69 66 20 5h AH GE 49 26 52 53 46 90014 P.AAH: ASCII \DSRSINIT file "\<0> ; 
69 66 20 54 49 4E 49 24 53 55 4C 50 52 53 44 a90e% P.AAI: . ASCII \DSRPLUSSINIT file ‘\<0> : 
00 22 20 65 6¢ 00033 ; 
00 48 4C 43 00038 P.AAJ: ASCII \CLH\<0> ; 
.PSECT $OWNS,NOEXE,2 
00000 STATUS: .BLKB 4 
00004 DEF_OUT_L UNG: : 
00008 DEF _OUT_SPC: 
.BLKB «52 
0004 0003C SIOBSDEFAULT: | 
-WORD 4 : 
01 OE 0003 “BYTE 14, 1 ; 
00000000" 00046 “ADDRESS P.AAF : 
.EXTRN FRA 
*EXTRN Rat,” he t80 "epithe 
EXTRN ARF TOP. P, PrOBStK. RNEI0B 
~EXTRN RNIIJOB, RNOIOB, TSIIOB 
sEXTRN TTIIOB, TTOIOB, IPFTICT 
-EXTRN RNFILE, RNFRIL, ERMS 
“EXTRN GRAB_RESULTANT, PUTMSG 
“EXTRN TSTTFE, XSTSFORMAT 
[EXTRN XPOSOPEN, XPOSGET 
“EXTRN XPOSF AILORE, XPO$PU 
“EXTRN XPOSCLOSE, KPOSDELETE 
.PSECT S$CODE$,NOWRT,2 
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00000000G_ EF 


52 

64 AE 

66 AE 

67 OA 

68 AE 
00000000G_ EF 
08 A 

sé A 

Cc hOA 
00000000G_ EF 
67 

85 
50 69 
FC re 

6 


7E 6 
00000000v : 
05 
0093 
4 
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vO4-000 


FO 


A8 


file pr 
Open in 


3 


cessing interface and F 
Slalicetion file and command Line hand 


000000006 


2c 
000000006 
0020A22A 


F4 
F8 

0 
0020A22A 


0084 

52 setae * EF 
Ae 4 A? 
aa: 
AE 08 A? 
7E 

68 AE 

i 

EF 9 
69 f 
A . 
A2 00040002 of 
52 000000006 _ EF 
AE 04 A? 
AE OE 
AE 01 
AE 08 A? 
7E 

68 AE 
i 

EF 0 
69 1¢ 
A2 50 
AS 02 
A 01 
000000006 EF 

gf 

ae 
67 29 
03 g 
0430 

0436 

50 69 
AO 06 
000000006 GF 

3 
pea 
: 
gc 1 
F 1 
03 
er | 

5 6 
A 4C A 
aq bh hyd 
fea 
7 34 CA 
3 6€ 


DW FMW OWS MII NSSF OOF UWIM SF NO F OODIO NSO OSO OOWDO NNO NS OCoOOoOOoW IW 
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SmooRS a Saar Oo Sh ea ed aD eset ee RO DD PS 
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7$: 


8$: 


5-38" 
5 
NOI 


MOVW OFF aut th tng fetes 


MOVB #1 * SStRSSTR 


G+3 
MOVAB DE Ef OUT. Spee TIE TRSSTRING*S 


PUSHAB SSTRESTRING 


CALL 136, nentt0B, 


MOVL RNOIO 


MOVW DEF_O ot 7 


MOVB Hi4; sores tr ING Gs 
MOVAB af jure SPC, SSTRSSTRING+4 


BISL2 rebels, 46(R2) 
BRB 


tA hae 
str G+2 
tasey 


C (S$ 
PUSHAB SSTRESTRING 


CALL #3, XSTSFORMAT 


ADDL3 # 6, RNI LOB, Ri 
MOVG R2) 
BISB2 * 46(R2) 
MOVB a. 44(R2) 
PUSHAB GRAB_RESULTANT 
CLRL <-(SPY 

PUSHL R 

CALLS #3, XPOSOPEN 
MOVL y US 
BLBS § STATUS, 10$ 
BRW 53$ 

BRW 52$ 
MOVL  RNIIOB, RO 
MOVE #6, 44(RO) 
PUSHAB KPOSF AILURE 
CLRL = 

PUSHL ay 

CALLS : XPOSGET 
MOVL RO 
MOVL erAToS 
BLBS_ «RI, y x, 

CMPL RI. #2138666 
BEQL 126 
BRW 20$ 

MOVL NII 

MOVL  76(RO). Teac C48 
CVTWL 86 74(RO). I 

EXTZV #4, a iS IRAC+4 
CMPL =o. #2138 

NEQ 16§ 

MOVZWL 52(RO), -(SP) 
CMPW (SP), #50 


» SRCICLH.BiI; 7” 


Sete Se Se Se Se Se Se Se Be Se Se Se Se Se Se Oe Se Be Bs Be Be Se Be Se Be Be Se Se oe Bete Se Se Se Se Se Be Se Se Se Se Se Se Se Ge Se Ge Fe Se Se Se Se Se Se Se Se 
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0444, 


16 
CLH file processing interface and command Line hand 1.38 -1984 56:1 VAX-11 Bliss-32 V4.0-74 Pp 5 
vO4-000 Open in tlalizetion file 127808-1 982 #3:98:18 DISKSVMSMASTERSCRUNOFF SRCICLH.BLIs1 a9e 183 
1B 00189 BLEQU 1 ; 
6E a 8 188 MOVL 5 (SP) : | 
000000006 AF bp i er haar 26 (RO) : Ot33 
000000006 ff o3 F 1¢ CALLS #3, ERMS : 
1 69 » ICE 14$: MOVL  RNIIOB, R1 t 0498 | 
FC AB 38 =6Al «D0 0010 MOVL  56(R1). IRA : 
68 FC AB p0 106 MOVL JRA TRA+4 t 0499 
04 AB 4 Al 1DA MOVZWL 52(R1), IRA+ + 0500 | 
08 AB 4 AB DO 001DF MOVL IRA+8, IRA+1 + 0501 
8 AB DS 00164 15$: _—‘TSTL 1RA+I2 + 0521 
49 15 001€7 BLEQ 9$ : 
54 6B p 1€9 MOVL  IRA+4, PTR : 05 
4 9A OO1EC MOVZBL (PTR). X : 05 
5 0 DO OO1EF MOVL xX, R2 : 05 
5 O4 D OiFe MOVL #i, R3 : 
0c D Orr CMPL R2. #12 + 053 
18 12 001F8 BNEQ 168 : 
53 D4 OO1FA CLAL oR : 
11 30. AT 04 £0 OO1FC BBS #4, 48(R1), 16$ : 0551 
F8 AB D6 00 01 INCL IRAC#12 > 0554 
FAB 01 D 00 v MOVL #1, IRAC+8 : 0555 
a F4 AB DO 00208 MOVL  IRAC+8, 76(R1) ; 0556 
4A Al F8 As B 00 0D MOVW  IRAC+12, 74(R1) : 055 
52 D5 00212 16$: TSTL Ré ; 0562 
06 1 00 14 BEQL 17% : 
0c 52 D1 00 1 CMPL Re wi2 ; 
09 13 0021 BEQL 3=s«a7$ : 
0000007F BF 52 01 00 1B CMPL Re #127 3 
08 12 00 32 BNEG «188 ; 
D4 00224 178 CLRL = R3 : 
50 00 BB 9A 00226 MOVZBL @IRA+4, X : 0567 
68 dg 022A INCL IRA+4 3 
08 ap D7 0022C¢ DECL IRA+T2 : 
B2 5 59 O22F 18$: BLBC R3, 15$ : 0570 
0369 31 00 ‘ 19$: BRW 52$ : 0583 
00209000 8F 51 D1 00235 20$:  CMPL 1, #2134016 : 0585 
18 12 0023¢ BNEQ 22% ; 
6A D5 00 TSTL GCA+1 88 : 0589 
OF 13 0024 BEQL 1$ ; 
08 DD 0024 PUSHL #8 : 0593 
FDB7? «CF 1 FB 6 4 CALLS #1, CLH ; | 
5 DD 00249 PUSHL #5 ; 0607 | 
FDBO CF 1 FB 48 CALLS #1, CLH : 
0 RET ; 
50 00 121$:  MOVL #2, RO > 0616 | 
4 BRB 23$ F 
50 DO § ges: MOVL «#3, Rg > 0618 
08 AB D4 $: CLRL IRA+1 : 0611 
4 C RET ; 383 
000000006 FF 0D 90 D 24$: MOVB #13, @FRA+4 : 06 
900000006 EF D INCL  FRA+4 : 
00000006 FF p A INCL  FRA+12 : 
000000006 FF A a MOVE #10, @FRA+4 > 0638 | 
gsnmmae or aa NG | 
50 6 G EF D 8 MOVL § RNOIOB, RO ; 0659 | 


16 | 
CLH file processing interface and command Line hand 18.08 -1984 23:56:1 VAX-11 Bliss-32 V4.0-74 
yo4-000 Open initialization fite rae Hoe ra Pd ee ot dr i 5 
64 AE 000000006 EF A MOVW FRA+12, $IOBSOUTPUT . 
66 AE bE ; § MOVB = #14, $foesoutpuTed : 
67 AE 9 MOVB = «#1, $108 QUTPUT*+3 : 
68 AE 000000006 EF 9A MOVL FRA, $IOBSOUTPUT+4 : 
; ae 64 AE ; A MOVAB $10BSOUTPUT, 68 (RO) : 
| ae 0 A MOVB #7, + 44(RO) : 
000000006 i F OO2A PUSHAB XPOSFAILURE ; 
2 ener iid 
000000006 EF F B CALLS i, XPOSPUT : 
67 D BC MOVL RO, STATUS : 
9000 000G EF 6 C BF SUBL2 #2. FRA+4 : 662 
steers tt 8 EB 005eD ates; STATUS. 28s : bees 
0203 5 0 D 25$: BRW HH : : 
3¢ B4 AA E8 002D3 26$:  BLBS  GCA+112, 27$ + 0676 
50 900000006 EF 00 0020 MOVL RNOIOB, R + 0699 
64 AE 000000006 FF 80 0 DE MOVW FRA+12. $IOBSOUTPUT : 
66 E O2E MOVB #14, $fOBSOUTPUT+ : 
67 AE 01 90 OO2EA MOVB #1, SIOBSOUTPUT+3 ; | 
68 AE 000000006 EF DO OOZEE MOVL FRA, $IOBSOUTPUT+4 : 
44 AO 64 AE 3 O2F6 MOVAB $IOBSOUTPUT, 68(RO) F 
a 07 90 O002FB MOVB ; 
000000006 EF OF OOOFF PUSHAB XPOSFAILURE : 
D4 00305 CLRL = = (SP) : 
50 DD 00307 PUSHL a0 : | 
000000006 EF 03 F 00 09 CALLS #3, XPOSPUT F 
67 50 00 00 19 MOVL RO. STATUS ; 
04 67 £8 00313 278: BLBS STATUS, 28$ + 0702 
B6 B4 AA £9 00316 BLBC CA+i12, 25$ : 
7A 11 0031A 28%: BRB 6$ + 0704 
50 69 00 0031C 29$: MOV. RNIIOB, RO : 0713 
07 11 OO31F BRB 1$ : 
50 000000006 a p0 0321 308: MOVL §RNOIOB, RO + 0721 
ae 2 90 00328 31$: MOVB #2, 44(RO) : 
000000006 EF 9F 00 § PUSHAB GRAB_RESULTANT ; 
D4 00 CLRL (SPY F 
50 DD 00 PUSHL RO | 
000000006 EF 03 FB 6 32% CALLS #3, XPOSCLOSE : | 
52 000000006 EF 00 fF 33$: MOVL RNO19B Re > 0729 | 
10 32 Ag 4 él 0346 #4, 50(R2), 34% : 
2c COA 2 90 00348 MOVB #2. 44(R2) : 0732 | 
000000006 EF OF 0034F PUSHAB GRAB_RESULTANT : | 
: D4 3 CLRL <-(SPY : 
5 Dp PUSHL R : 
dB C1 9 RB 32$ 3 
Ze A 1 8 B 34$ BISB2 #16, 46(R2) > 0737 | 
. os 0 F OVB #2, 44(R2) : 
000000006 i F 63 PUSHAB GRAB_RESULTANT : | 
D4 CLRL (SPY : 
DD 00368 PUSHL Re ; 
000000006 EF F CALLS #3, XPOSCLOSE ; 
67 D 4 MOVL RO, STATU ; 
0 000000006 ai 7 MOVL = RNOI : 0739 | 
2c (A 3 M3 MOVE #3, 44(RO) ; | 
000000006 EF 9F 0038 PUSHAB GRAB_RESULTANT ; 


16 
CLH file processing interface and command Line hand 1}-5e -1984 23:56:1 VAX-11 Bliss-32 V4.0-742 @ 7 
yO4-000 Open initialization fite Fee Ho ra ek ee Rd ote ot od Po 14 
| 
04 CLRL = = (SP) ; | 
DD A PUSHL R : 
000000006 EF F g CALLS #3, XPOSDELETE ; 
7 p 5$: MOVL RO. STATUS : | 
: $$: BRB 43$ + 0742. 
FC AA 6A i zc $: cHPL ggg. GCA+184 : 0753) 
50 GA 000000F4 BF ¢ E MULL3 #244, GCA+188, RO : 0756 
69 00000000GEF 40 A MOVAB IOBSTKCROJ, RNIIOB : | 
AD A INCL  GCA+18 ; 0757. 
F 1 B BRB 43$ : 0761. 
50 5 0 8 38$ BOVL #5, RO : | 
50 6A DO 00386 39$ MOVL GCA+188, RO + 0772 
03 1 0 B BNEG 40$ : 
168 3 BB BRW 54$ : 
0 DD OO3BE 40s PUSHL RO + 0785 
000000006 EF 01 FB 003c CALLS #1, TSTTFE : 
0 69 00 003¢ MOVL RNIIOB, RO + 0787 
18 32 Ap : O3CA BLBC 50(RO). 41$ : 
2c A 02 90 003¢ MOVB #2, 44(RO) + 0791 
000000006 cr 9F 003D PUSHAB GRAB_RESULTANT : 
E D4 9030 CLRL <-(SPY : 
50 DD 003DA PUSHL RO ; 
000000006 EF 03 F 0030¢ CALLS #3, XPOSCLOSE ; 
67 0 DO O003E MOVL Ro STATU : 
69 000000F4 BF C2 003E6 41$:  SUBL2 #244, RNIIOB : 0793 
6A D? OO3ED DECL 6cA+ {ae + 0794 
07 if} O3EF BNEQ 42% : 0796 
69 000000006 EF D OF) MOVL §RNEIOB, RNIIOB : 0798 
50 69 DO 003F8 42$:  MOVL  RNIIOB; RO + 0804 
51 1¢ =A i 03FB MOVAB 28(RO), R1 ; 
FC As 04 «AI p O3FF OVL  4(R1), IRAC+16 + 0805 
6 61 3C 00404 MOVZWL (R1), IRAC+20 > 0806 
Fe OB 4c AO g 0407 OVL  76(R6), IRAC+8 : 0808 
FB AB 4A AO 040C CVTWL 74(RO);, IRAC+12 : 0809 
018A 31 00411 43$: BRW 52$ + 0810 
56 69 BO 0414 44$:  MOVL  RNIIOB, R6 : 0820 
O0F4  8F 00 GE 09 2C 00417 MOVCS #0, (SP), WO, #244, (RG) 
66 0301003D 8F DO O04dI1F MOVL  #50397245, (R6) : 
1€ Ag OE 8F BO 00426 MOVW #5 $ 0(R6) : 
67 00208001 BF D0 O04eC MOVL #2129921, STATUS : | 
64 AE 000000006 EF 4 MOV FSoi+| SSTRSSTRING > 0826 
66 AE é 438 MOVB #14, SSTRSSTRING+ : 
67 AE 90 0043F MOVB = #1, SSTRSSTRING+3 ; 
68 AE 000000006 FF DO O0445 ROVE FS61, SSTRSSTRING+4 | 
68 AE BF 44 PUSHAB $STRSSTRING F 
7E D4 0045 CLRL © =(SP : 
000000006 EF Q FB i CALLS #3, XSTSFORMAT | 
8 Ab ae ROVAB S1OBSDEF AULT. 8(R6) ; | 
— A gt 4 BISB2 #1, 46(R6) F 
C 1 4 MOVB 44(R6) ; 
000000006 EF F O046A PUSHAB GRAB_RESULTANT ; 
E D4 00470 CLRL = = (SPT ; 


7 


16 | 
CLH file processing interface and command Line hand 13-Se 1984 23:56:1 VAX=11 Bliss-32 V4.0-742 Pa 
vo4-000 Open initialization fits 1argeR=13Rt $3238: 19 DISKSVMSMASTER:CRUNOFF -SRCICLH.BLIz1) 9 (185 
DD 0047 PUSHL R P 
000000006 EF FB 004 g CALLS ae XPOSOPEN : 
: PB OOagE pres SrATOSS : 0828. 
ore i 4 F BRW $8 : 
FBO d6 484 45$ MOVL #1, IRAC+12 : 
Fe OA 1 00 004 MOVL. #1. IRAC+8 ; 
50 69 C1 004 ADDL3 #28, RNIIOB, RO ; 
oe 04 =A bo 4 MOVE 4(RO), IRAC+16 + 0839) 
6 60 3¢ 0049 MOVZWL (RO), IRAC+20 : 840 | 
03 BB AA § 49 BBS 3 6cA+116, 47$ + 084 
OOFE j 49D 46$: BRW 52$ : 
REA GRANDS Ba Coke eat bone on ! one 
63 00000000' EF OA 4} 4A8 MOVC #10, ~P.AAG (WORK_PTR) F 3 
© ooh AP ARERR RAE gigs Eo : Bes 
56 9 DO 00486 48$:  MOVL RNIIOB, R6 + 0913 
OOF4 28F 00 bE 0 2c ac68 MOVCS #0, (SP), WO, #244, (RO) : , | 
66 0301003D er DO 004C1 MOVL #30397 45, (R6) : 
1E Ab 0208 F BO 0468 MOVW #5 $ 0(R6) : 
67 00208001 8F D OO4CE MOVL #2129921, STATUS : 
64 AE 000000006 EF BO 004D MOVW £FS01+12, SSTRSSTRING : 0919 
66 AE E 90 00400 MOVB #14, S$STRSSTRING+ : 
67 AE 1 90 00461 MOVB #1, SSTRSSTRING+3 : | 
68 AE 000000006 EF DO 004E5 MOVL S01, $STRSSTRING+4 ; | 
E D4 O04ED CLRL = = (SPS : | 
68 AE 9F OO4EF PUSHAB $STRSSTRING ; 
7E D4 004F2 CLRL = =(SP) : 
000000006 EF 03 FB 0044 CALLS #3, XSTSFORMAT : 
04 Ab 50 DO 004FB OVL RO. 4(R6) : 
2E AG 01 88 O04FF BISB2 #1. 46(R6) : 
2C AG 01 90 0503 MOVB #1. 44(R6) ; 
000000006 EF 9F 00507 PUSHAB GRAB_RESULTANT : | 
a a ir a : 
000000006 EF e3 FB 00511 CALLS #3, XPOSOPEN : 
67 : dO 00518 MOVL R STATUS : 
03 6 § 0518 BLBS STATUS, 49S : 0920 
0081 31 a1E BRW : 
50 69 1¢ 1.00521 49$:  ADDL3 #28, RNIIOB, RO + 0930 
ae 04 A Bd 525 MOVL 4(RO), IRAC+16 : 09 
6 : : 09 A MOVZWL (RO) 1RAC$20 : 09 
6C BB AA E1 005 BBC 3, 6CA+116, 52$ : 09 
68 4 AA 34 3 BLBS GCA+1i2, 52$ ; 
8 AE : MOVAB WORK AREA, WORK_PTR : 0955 
08 000000006 F p 5 CPL FSO1t12, #8 : 0961 
56 F 43 MOVL ie. WORK_COUNT > 0964 
63 00000000' EF é 4 MOVs WORK COUNT, P.AAH, (WORK_PTR) : 0967 
56 ° 6 50$ MOVL 719. WORK_COUNT : 35) 
63 00000000" EF 5 MOVC3 WORK _COUNT PeAAL. (WORK_PTR) : 0974 
6 FC ° 6 : é 51$ move 1RAC ; ainacel6. (WORK"PTR) : 979 
i 0D22 $F BO 0056 MOVW 1862" (wORK_PTR)+ : 386 


CLH file cessing interface and comm - 
yO4-000 Open initialization tite ee See 15-ep- 
9A 9 8 
- B 
00000000G EF 0D 
6E 6 
o¢ AE ; 7 
AE 7 
04 =A 08 AE YE 005 
i 8 3 Bee 
000009006 i 9F 005 
DD 0089 
000000006 cf 6 FR 59 
0 1 0 276 52$: 
04 OOSA 
50 02 00 b2hg 53$: 
04 OOSA 
50 D4 005A6 54S: 
04 005A8 


; Routine Size: 1449 bytes, 


; 919 1035 1 


Routine Base: 


$CODES + 0000 


1986 43:08:48 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CRUNOFF . SRCICLH.BLI; ° 


F3, "WOR nee PTR)+ 
. Afount 


WORK. Saunt sions UTPUT 
His, $1088 Sout 


bokn x AREAS 
S1OBSOUTPUT, 6 
0) 
RPOSFAILURE 


“31 ate TPUT+4 
eBCRO) 


iS, XPO$PUT 
#1, RO 

#2, RO 

RO 


Sete Se Se Se Se Se Se Se Se Se Se Be Be Se Se Se Se Se 


CLH file processing interface and command Line hand $48 Sep-1984 VAX-11 Bliss-32 V4.0-742 Pa 
vO4-000 get_out “default -- compute output filename from 127868- 4382 $3: 38 i DISKSVMSMASTER: CRUNOFF..SRCJCLH.BLI;1 att si 
: 921 1 1 Xsbttl ‘get_out_default -- compute output filename from input filename’ 
s 2 § : i ! ROUTINE eet: out_default (file "Gescriptor) : NOVALUE = . 

> 924 1 8 1 !44 

; ? ey } FUNCTIONAL DESCRIPTION: 

: 927 1042 1! This routine uses the input file type to compute the 

3 2 3 1948 ! } output file type * wh Senet taas yO tled ontenstend.. 

: 2 . ek ! FORMAL PARAMETERS: 

3 $32 19¢7 ! FILE_DESCRIPTOR is a string descriptor for the input file name. 
> 934 1049 1°! IMPLICIT INPUTS: None 

: 935 1050 1! 

; 936 1051 1°! IMPLICIT OUTPUTS: None 

; 937 1336 1! 

; 938 1055 1 =: ROUTINE VALUE: 

; 939 1054 1 ! COMPLETION CODES: None 

; 949 1055 1! 

3; 941 1938 1 ! SIDE FFFECTS: None 

: 94 1057 1! 

: 94 1058 1 !-- 

> 944 1059 1 

> 945 1060 BEGIN 

: 946 1061 

: 947 1306 IND 

; 948 106 file.spec_stuff = .FILE_DESCRIPTOR : $STR_DESCRIPTOR (); 

; 949 1064 

; 950 1065 2 LOCAL 

3; 951 1066 § file_specx 

: 95¢ 1067 file spec_(ng, 

; Pe 1068 name_length, 

; 954 1069 parse_spec_ blk : : SXPO_SPEC_BLOCK, 

3 939 1070 ptr_u_ext, 

; 956 1071 § rai 

: 957 1976 

> 958 107 3 R ype zlength 

; 998 107% u_ext : VECTOR CCHSALLOCATION (50)]; 

; 961 1076 file_specx = - file spec_stuff CSTRSA_POINTER]; 

: 366 144 filecspec_lng = .ftle_spec_stuff CSTRSH LENGTH); 

> 964 10 'The code conditionalized by the EOLISS32 Vgaical fy vunct ten is 

; 965 1080 'to get around a bug introduced in ver /VMS. 

; 966 18 1 ibog cal 9 pee now Start with an wnleranare, and this mucks up 

3; 967 1 ; 'XPORT's Sees parsing. 

; 968 10 ZIF tau isscat13 ) Brien 

; 969 18 ‘Inform tee ildgr of RUNOFF that this kludge i here 

: 970 L 1085 ZMESSAGE ( ‘aL Iss Patch code included te Moy OO trom output filespec'); 
: 971 19 ‘Ignore the first character of the file if it's 

3; 97 1 ‘an underscore so XPORT; this lets. XPORT go" servertin. 

: are 1089 . CHSRCHAR(. file _specx) EQL ZC°_ 

3 3°? 1990 ‘It’ : an underscore. Do the ee, 

: 97 1092 tile_specx = CHSPLUS (.file_specx, 1); 


file processin 1984 23:56:1 VAX-11 
get out default -- compute output filename from 1278671382 $3238: DISKSVM 
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" 16 
interface and command Line hand 15-Sep- 


file spec_lng = .fil “UU 
fise- pec_lng e_spec_lng = 1 


'End of crock code. 


'‘Parse the input file spec to get the specified type. 

$xPO_PARSE_SPEC ( SPEC BLOCK = "parse spec biky > 
oFILE_SPEC = ( .file_spec_lng 

file _specx ) ys 

‘Start building the output file spec. 


iFirst set CHS$PTRs to the parsed input fil ; 
ifirs p pu e name 


BIND 
temp = parse_spec_blk CXPOST_FILE_NAME] : S$STR_DESCRIPTOR (); 


name_length = .temp CSTRSH LENGTH: 
ptr_7 = .temp CSTRSA_POINTER); 


'Set a CHSPTR to where the computed output file spec goes. 
ptr_o = CHSPTR (def_out_spc); 
'Copy the input file name to the output file spec. 


INCR i FROM 1 TO .name_length DO 
CHSWCHAR_A (CHSRCHAR_A (ptr_i), ptr_o); 


def_out_lng = .name_length; 'Set current Length. 
BIND. 

temp = parse_spec_blk CXPOST FILE_TYPE] : $STR_DESCRIPTOR (); 
type_length = steno CSTRSH_LENGTA); 
perf = .temp CSTRSA_POINTER); 


‘Translate the file type to upper case. 
‘Leave the result in U_EXT. 


0-742 p 1 
OFF SRCICLH.BLI:1 99 (1a) 


te ucext = CHSPTR (u_ext); !CHSPTR to where file type goes when in upper 


NCR 7 FROM 1 TO .type_length DO 
BEGIN 
LOCAL 
temp; 
temp = CHSRCHAR_A (ptr_i); 
IF lower_letter (.temp) 
THEN 


‘Convert lower case letter to upper case. 
temp = upper_case (.temp); 


‘Put processed character into file type area. 
pec AR_A (.temp, ptr_u_ext); 


! Search through the various known input filetypes looking for a type that 


! matches what was given. 


<o- 


“ 


EEFRESESESRRALALAAARE EEE PERE REALL 
DONA UVESUN OO OONOAWE WN $0 OONAUEWN OO OONOUSWN OOM 
ccccc 


ccccc 
ee ee a a a kd dd dd a 


Se SS i, ee 


Pelelololelololololajlolojeajqie) 


Be Be Se Se Se Oe Oe Be Oe Se Be Fe te Se Se Be Se Se SH Se Se Fs OH Ge Oe Se Se Se Ge SF Se GH Se Se Se Se Se Ge Se Se Se Se Se Se Se Sees SH Gs SH ae 


o 
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w 
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X-11 0-74 Page 
get_out_default -- compute output filename from 14-Sep-19 05:41 DISKSVMSMASTER: CRUNOFF.SRCJCLH.BLI;1 (16) | 
11 

ptr_u_ext = .opftop (0); !Assume it won't be found, and point to ‘’.MEM’’. | 
IF .ipftyp EQL -1 THEN ! We haven't yet mapped against IPFTOP | 
| 


INCR i FROM 0 TO (ipftct-1) DO 


IF CHSEQL ( .type Length 
JcHePTR Curent? 


cure ;eipftop C.i] ) 
shane ~ Fess Set a CHSPTR to the matching output file type. 
tr_u_ext = .opftop C.i]; 
Px TLOOP . 
END 
END 
ptr_u_ext = .opftopl.ipftyp); 


ZIF DSRPLUS XTHEN 
aad EQL op_dev_vt100 


‘User said /DEC=VT100, so make .VT1 the default output type. 
ptr_u_ext = CHSPTR (UPLIT (*.VT1")); 


ELS 


2FI 


Z1IF LNO1 ZTHEN 
IF (.gca_op_dev EQL op_dev_in01 

OR .gca_op_dev EQL op_dev_\n0le) 
THEN | 


‘User said /DEVICE=LNO1Ce], so make .LNI the default output type. 
ert ptr_u_ext = CHSPTR (UPLIT (°.LNI')); 


ZIF FLIP 2THEN 
IF yi 7968-0P.dev EQL op_dev_flip) 


WOO O00 0009 09 09 09. 00 09 09 09 SI INI NIN NSN NN NIP AAA AAA AAA MMMM 


ee ae ee ee ee ee a ee ee et a et dd ad a a 
SOODNOA NEW 0 OONOAUE WIN 0 OONOU EWN 0 ODNOAUE WR 0 OONOUES WN 


=POIPIPININIPININGNDININININININININININ WADI PINININIE INIPUNINITIW EE & EE 


| 
| 
THE 
'User said /DEC=FLIP; this overrides a /DEC=VT100 (if also given). | 
ef ptr_u_ext = CHSPTR (UPLIT ('.BFL")); 
9 ‘Copy the file type to the output file spec area. | . 
: 'Note that if there was no match, then PTR_U_EXT points to ‘’.MEM"’ 
9 INCR i FROM 1 TO 4 60 
3 CHSWCHAR_A (CHSRCHAR_A (ptr_u_ext), ptr_o): | 
9 def_out_lng = .def_out_lng + 4; ‘Update file spec Length. 
20 END; ‘end of get_out_default 


} 
-PSECT S$PLITS,NOWRT,NOEXE,2 | 
49 4E 4C 2€ O003C P.AAK: ASCII \.LNI\ ; 


1 
4 file processing interface and command Line hand bese -1984 23:56:1 VAX-11 Bliss-32 V4.0-742 Pa 3 
62-000 get out default == compute output filename from 122805=1 984 $3:98i49 DISKSVMSMASTER: CRUNOFF .SRCICLH.BLI;1 18 


.EXTRN XPOSPARSE_SPEC 
.PSECT $CODES,NOWRT,2 

07FC 00000 GET_OUT_DEF AULT: 
WORD 


| 
: 
| : 
| 
| Save R2,R3.R4,RS,R6,R7.RB,RI,R1O ; : 
5A 000000006 EF 9E 00002 MOVAB GCA+208. Ri : ; 
59 000000006 EF 9€ 00009 MOVAB  OPFTOP : ; 
ok 00000090" EF 9E 9019 MOVAB ODEF_OUT_LNG, R8 : : 
5E FF7C «CE 3 001 MOVAB =132(SP : : 
20 04 ac D O01¢ MOVL FILE DESCRIPTOR, RO : 1068 ; 
1 4 A b0 0020 MOVL 4(ROJ, FILE SPECK + 1076 : 
50 60 3C 00024 MOVZWL (RO), FILE SPEC LNG + 1077 ; 
SF BF 61 91 00027 CMPB ss (FILE_SPECR), #9 + 1088 ; 
04 12 00028 BNEQ 1$ ae ; 
51 D6 00020 INCL  FILE_SPECX : 1092 ; 
50 D7 O800F DECL FILE-SPEC_LNG + 109 ; 
6E 50 Bu 00031 1$ MOVW  FILESPEC"LNG, $STRSFILE_SPFC + 1101 r 
02 AE 0E 90 00034 MOVE #14, ~S$STRSFILE_SPEC+2 ; : 
03 AE 01 90 00038 MOVB #1, SSTRSFILE SPEC+3 : : 
04 AE 51 DO 0003C¢ MOVL FILE SPECX, SSTRSFILE_SPEC+4 ; : 
000000006 EF 9F 00040 PUSHAB XPOSFAILURE : : 
7E D4 00046 CLRL -(SP) s | 3 
7E 01 CE 00048 MNEGL #1, -(SP) : : 
48 AE 9F 09048 PUSHAB PARSE _SPEC_BLK : ; 
10 AE 9F O004E PUSHAB $STRSFILE SPEC F : 
000000006 EF 0S FB 00051 CALLS #5, XPOSPARSE SPEC : : 
51 SC 6 AE O38C 0008 MOVZWL TEMP, NAME LENGTH + 1109 : 
52 60 AE DO 0005¢ MOVL  TEMP+4, PTR_ : 1110 ; 
56 04 ABS 9E 00060 MOVAB DEF_OUT_SPC> PTR_O : 1114 ; 
50 D4 00064 CLRL 1 : 1118 : 
03 11 00066 BRB $ : : 
86 82 90 00068 ¢ MOVB (PTR_1)+, (PTR_O)+ : ; 
F9 50 51 F3 00068 3$ AOBLEQ NAME"LENGTH, I; 2$ : ; 
68 51 v0 0006F MOVL “LENGTH, DEF _OUT_LNG > 1120 i 
57 64 AE 3¢ 00072 MOVZWL TEMP. TYPE _LENGTA > 1124 3 
52 68 AE DO 00076 MOVL TEMP+4, PTR I : W163 : 
55 08 AE YE OOO7A MOVAB U_EXT, PTR_O_EXT : 1130 3 
51 D4 0007E CLRL oI > 1131 : 
1B 11 00080 BRB 6$ : : 
50 82 9A 00082 4$ MOVZBL (PTR_I)+, TEMP : 1137 ; 
00000061 + &F 50 D1 0008 CMPL TEMP, #97 : 1139 | : 
oc 19 9008¢ BLSS =ss«S5$ : : 
0000007A_ =F D1 000 E CMPL TEMP, #122 : : 
03 14 0009 BGTR 5$ : ; 
50 20 ¢2 00097 SUBL2 #32, TEMP + 1142 ; 
5 30 90 0009A 5$ MOVE TEMP, (PTR_U_EXT)+ > 1145 : 
£1 1 F3 0009D 6$ AOBLEQ TYPE LENGTA, “1 : 1131 : 
5 69 DO 000A1 MOVL OPFTOP, PTR_U_E : 1151 ; 
30 000000006 EF DO OO0A4 MOVL IPFTYP. RO > 1153 : 
FFFFFFFF © BF 0 D1 OO0AB CMPL , Wei : 3 
6 12 00082 BNEQ : ; 
54 1 cE 00B4 MNEGL #1, I > 1155 ; 
50 O0000000GEF44 pO OdoR9 75 But —«sAPFTOPCI2, RO 1160 ; 
04 00 08 AE 57 oD 00C1 CMPCS TYPE_LENGTH, U_EXT, #0, #4, (RO) : 1189 : 


‘Vb4-000 


E1 
04 6A 
05 6A 
F9 


; Routine Size: 257 bytes, 


; 1086 1201 1 


file processin 
get_out_defaul 
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interface and command Line hand bese 
== compute output filename from 14-Se 

0 G00c8 
6 1 c8 
55 at 06 Boorse 
54 000000006 gf ‘3 o006 8$: 
04 11 0000 
55 6940 59 QOODA 9$: 
04 4 Fe OODE 10$: 
7 SOE 
04 4 €D 3 
7 12 OOOEA 
23 00000000' Ff 43 ORFS 11$ 
0 a: 9 OF \¢3 
86 85 7 OUOF6 13$ 
50 04 F3 000F9 
68 04 CO OOOFD 
04 00100 


Routine Base: $CODE$ + 05A9 


8$ 
OPFTOPLIJ, PTR_U_EXT 
#IPFTCT=-1, I, 7$ 


OPFTOPCROJ, PTR_U_EXT 
#4, #4, GCA+2087 B4 


Woe #4, GCA+208, #5 

P.AAK, PTR_U_EXT 

(PTR_U_EXT)+, (PTR_O)+ 
, 1,138 

#4, DEF_OUT_LNG 


2-2 0-2 —2-— 
eo an tee 


“13B2 F388: 1o Peek dwBAAS FERS choNGre “SecacLH.BLI:1 
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SS 


SSRERISSSLISPCSS 
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processing interface and command Line hand 1-sep-19 4 t $9:20:16 
IT == performs user syncronization for /PAU 14-Sep-1984 15:05:41 


GLOBAL ROUTINE fbwait : NOVALUE 
! 


1e4 
} FUNCTIONAL DESCRIPTION: 


the RUNOFF user to input a single character. 
i FORMAL PARAMETERS: —§ None 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CRUNOFF. SRCICLH.BLI; * hs 


~uM 


Zsbttl ‘FBWAIT == performs use’ syncronization for /PAUSE 0/P w/FF' 
= 


Issues some BELLs (*Gs) and a FORMFEED (*L) and waits for 


-PSECT $PLITS,NOWRT,NOEXE,2 


ile 
BWA 
02 1 
88 
04 1 
0 4 
89 | 
208 1 | 
09 1! 
10 1! 
eas 
ig 1! 
\3 { IMPLICIT INPUTS: None 
aE IMPLICIT OUTPUTS: None 
17. 1 ' ROUTINE VALUE: 
18 i i COMPLETION CODES: None 
220 1! SIDE EFFECTS: None 
> ee Be 
222 1 [<= 
223 (1 
224 2 BEGIN 
225 s $XPO_GET (108 tsiiob 
226 PROMPT = (3, CHSPTR (UPLIT 
227 2 ZSTRING (BELL, BELL, MCHAR (%0'14")))) ) 
338 g CHARACTERS = 1 
$66 2 si 
231 2 pSend a Core toge | return, so text starts at the left margin 
232 2 $XPO_PUT (10B = tsiio 
$33 é ,. ST RING = a. CHSPTR(UPLIT(ZSTRING(ZCHAR(%0'15"))))) 
235 2 : 
236 «(1 END; ‘End of FE WAIT 
00 OC O7 O7 00040 P.AAP: .ASCII <7><7><12><0> 
00 00 00 OD 00044 P.AAT: .ASCII <13><0><0><0> 
.EXTRN XSTSFREE_TEMP 
-PSECT $CODE$,NOWRT,2 
001C 99000 
54 00000000G EF 9E 9008 MOV KPOSE ATLURE 
53 000000006 EF 9E 0000 MOV 
5E 8 C 9019 SUBL ag. 
6E BO 0001 MOV 
02 AE : 9 0016 MOVB nib, 
03 AE 9 1A mOVB sol 
04 AE 00000000' te vE 4 
E D g CLRL S 
04 9F 000 PUSHAB $STRSSTRING 


ith FBWAIT care Ree R3,R4 


seo LRSSTRINGS2 
MOVAB > kar SSTRSSTRI 


PeSe Se Se Se Se Oe Se Be Se 
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vo4-000 FBWAIT aod per teres user syncronization for /PAU 12280 8= 1382 #350819 DISKSVMSMASTER: CRUNOFF .SRCIJCLH.BLI;1 . 138 

7E D4 00028 CLRL -(SP) : 

000000006 EF o§ F 09 D CALLS is XSTSFORMAT : 

3 g DO 00034 MOVL 0, R 3 

DO 00037 MOVL 1068+ 6, RO : 

9 1 99 A BEQL $ : 
0 Dd 0003c PUSHL RO : 

000000006 EF 04 FB 00 ; CALLS #1, XSTSFREE_TEMP : 

63 2 00 00045 1$: MOVL R2, I0B$+3 : 

1 A3 01 BO 00048 MOVW #1, 10B$+5 : 
12 AS OE 90 0046 MOVB #14, 10B$+54 : | 

0 AS 6 90 0005 Ove - 10B$+44 : 

4 DD 0034 PUSHL : 

D4 000 6 CLRL -(SP) : 

DC} 3=—AS.—sOOF:«O00E PUSHAB I0B$ : 

000000006 EF 03 FB 0005 CALLS #3, XPOSGET : 
6£ 01 BO 9006 MOVW #1, SIOBSOUTPUT + 1234 

02 AE OE 90 0006 MOVB #14, $10B$OUTPUT+2 : 

0 AE 01 90 00069 MOVB #1, SIOBSOUTPUT+3 ; 

04 AE 00000000' EF 9E 0006D MOVAB P.AAT, SIOBSOUTPUT+4 : 

20 AS 6E 9E 00075 MOVAB $i0BSOUTPUT, 19B$+68 ; 

08 A3 07 90 00079 MOVB #7, I0B$+44 : 

54 DD 0007D PUSHL R4 : 

re D4 0007F LRL -(SP) : 

DC A3 9F 00081 PUSHAB I0B$ : 

000000006 EF 03 FB 00084 CALLS #3, XPOSPUT : 
04 00088 RET : 1236 


; Routine Size: 140 bytes, Routine Base: SCODES + O6AA 


3 1123 1237 1 
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vuvuv 
kk kk ak nd dd dd 


SOOOWNAMNES WN O OONOU EWN OC OONOAUE WIN "ODODNOU 
POPOPEPOPE NPP No PoTnofnonofnofory 


ce ec ee ae ae cee el ce ce ee ee ce ce ce el ce ee ce ce ee eae ce ee ce ee eee ee ed 
= POPORIPONONONONOPONONONONYNRY) — — - 


ee eB ek ee ed ed ad dD 
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zation for /PAUS 14-Sep-1984 


Zsbttl 'BWAIT == performs user syncronization for /PAUSE 0/P w/o FF' 
GLOBAL ROUTINE bwait : NOVALUE = 


14 


; FUNCTIONAL DESCRIPTION: 
This routine is just Like FBWAIT, except that no FORMFEED is issued. 
FORMAL PARAMETERS: None 
! IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 


EXTERNAL 
tsiiob: $XP0_10B(); 


$XPO_GET (10B = tsiiob 
»PROMPT = (4, CHSPTR(UPLIT(XZSTRING(BELL,DEL,BELL,DEL))) ) 
gCHARACTERS = 1 


!Send a carriage return, so text starts at the left margin 
$XPO_PUT (I0B = tsiiob , 

"rheenate = (1, CHSPTRCUPLIT(ZSTRING(XZCHAR(%0'15"))))) 
END; ‘ !End of BWAIT 


-PSECT SPLITS,NOWRT ,NOEXE 2 


7F O7 7F O7 Q0048 P.AAY: .ASCII <7><127><7><127> 
00 00 00 OD O004C P.ABC: .ASCII <13><0><0><0> 


-PSECT $CODES,NOWRT,2 


So 
o 


1¢ 00000 -ENTRY BWAIT, Save R2.R3.R4 
54 000000006 EF 9E 00002 MOVAB KPOSFAILURE vA 
53 000000006 cf 9 9009 MOV 10B$+36, R 
5E 8 C 919 SUBL2 #8, 
6E 4 3 01 MOVW #4, S$STRSSTRING 
02 AE E O16 MOVB #14, SSTRSSTRING#2 
03 AE 1 90 OGOIA MOVB oft] RSSTRING+3 
04 AE 00000000' EF 9E OO01E MOVAB P.AAY, S$STRSSTRING+4 
E D4 00026 CLRL =<SP) 


—— | 
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yo4-000 BWAIT -- serieras user syncronization for /PAUS 14-Sep 71984 #3 38; if DISKSVMSMASTER: CRUNOFF .SRCICLH.BLI; 7 uy 185 | 
04 AE OF 8 8 PUSHAB $STRSSTRING : : 
7E D4 B CLRL = = (SP) : ; 
000000006 gf 9 F 020 CALLS #3, XSTSFORMAT : 3 
3 D 0 MOVL 0 s . 
5 D 00 7 MOVL 106s+ 6, RO ; ; 
7 8 A BEQL $ 3 : 
0 DD 0003C PUSHL a : : 
00000000G_ EF 9] a3 00 3 CALLS #1, XSTSFREE_TEMP : 3 
6 2 DO 09045 1$ MOVL R2, 10B$+3 3 : 
1 A 01 8 0048 MOVW #1, 10B$+5 3 : 
12 A OE O04¢ MOVB oad, 1OB$*54 : ; 
0 AS 9 90 00 2 MOVB +o 10B 3 : 
4 DD 00054 PUSHL Fi ; 
7E D4 00 28 CLRL Resp) : 3 
dC AS 9F 0005 PUSHAB g 3 $ 
00000000G_ EF 03 FB 0005 CALLS # POSGET 3 : 
6E 01 BO 0006 MOVW 1, SIOBSOUTPUT 3; 1272 : 
0 AE OE 90 0006 MOVB . SIOBSOUTPUT+2 ; : 
0 AE 01 90 00069 MOVB #1, SIOBSOUTPUT+3 : : 
04 AE 00000000" EF 9E 0006D MOVAB P.ABC, SIOBSOUTPUT+4 3 : 
20) «(AS 6E 9E 00075 MOVAB SiOBSOUTPUT, 10B$+68 : ‘ 
08 A3 of 90 0079 MOVB #7, 10B$+44 3 3 
4 60 00070 PUSHL R4 Z : 
7E D4 0007F CLRL (SP) : : 
DC 6A3. 9F 00081 PUSHAB I0B$ 3 Pt 
00000000G_ EF 03 FB 00084 CALLS #3, XPOSPUT 3 ‘ 
04 00088 RET 3: 1273 : 
; Routine Size: 140 bytes, Routine Base: $CODE$ + 0736 : 
; 1161 1274 #1 : 
: 1162 1275 1 END ‘End of module é 
3; 1163 1276 O ELUDOM : 
3 PSECT SUMMARY ‘ 
: Name Bytes Attributes ; 
; SOWNS 68 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) é 
; SPLITS 80 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SCODES 1986 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics : 
eee ae a ee ie ee SR OMIM Symbols -------- Pages Processing : 
: File Total Loaded Percent Mapped Time : 


-$255$DUA28: CSYSLIBIXPORT.L32;1 590 168 28 252 00:00.1 


A 


Gl-ooo ——_-Suktreeeunfensinsctoegsndatonend Woe ant Hr ME HEARD ed baltnakztig 
+ ~$255$DUA28: CRUNOFF .SRCIJDSRLIB.L32;1 1248 54 4 86 00:00.2 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CLH/OBJ=OBJ$:CLH MSRC$:CLH/UPDATE=(ENH$:CLH) 
; pies oe 1986 1°83" + 148 data bytes 
e: 


; Elapsed Time: 1: z°8 
3 Lines/CPU Min: 1200 

; Lexemes/CPU-Min: 73280 

: pee Used: 465 pages 
; a 


; Compilation Complete 


ae 
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